home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Magazin: Amiga-CD 1996 September & October
/
Amiga-CD 1996 #9-10.iso
/
grafik
/
anims-95
/
312-kopieren
< prev
next >
Wrap
AmigaDOS Script File
|
1996-07-19
|
983b
|
37 lines
.key copytarget
.bra {
.ket }
; Kopierscript für SSA-Animationen des AMIGA-Magazins
; © MagnaMedia Verlag AG, AMIGA-Magazin
cd >env:ssa-org{$$}
assign >nil: ssa-org: `getenv ssa-org{$$}`
if "{copytarget}" EQ ""
unset bla
:c/Requestfile20 RAM: TITLE "Benötige 64189734 Bytes im Zielverzeichnis" DRAWERSONLY >env:bla
if warn
quit 0
endif
.def copytarget $bla
endif
:c/checkdevavail {copytarget} 64189734
if warn
:c/requestchoice20 >nil: Information "Nicht genug Platz vorhanden!" OK
else
copy >nil: ssa-org:312_BABYLON#? {copytarget}
copy >nil: ssa-org:nightscarf.MOD {copytarget}
cd {copytarget}
if not exists SSAMultiplay
copy >nil: ssa-org:SSAMultiplay/#? all SSAMultiPlay
endif
cd ssa-org:
if not exists "env:request"
:c/requestchoice20 >nil: Information "Kopiervorgang beendet!" OK
else
if "`getenv request`" EQ "YES"
:c/requestchoice20 >nil: Information "Kopiervorgang beendet!" OK
endif
endif
endif
assign >nil: ssa-org: remove
unsetenv ssa-org{$$}